home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #47 (Aug 89) / PREC Code / TEConvert.p < prev   
Text File  |  1989-06-10  |  763b  |  31 lines

  1. unit TEConvert;
  2.  
  3.    {General utilities for conversion between TextEdit and strings}
  4.    { see Macintosh Technical note #18 }
  5. interface
  6.  
  7. {    uses}
  8. {    MemTypes, QuickDraw, OSIntf, ToolIntf;}
  9.  
  10.     procedure TERecToStr (hTE: TEHandle; var str: Str255);
  11.       {TERecToStr converts the TextEdit record hTE to the string str.}
  12.       {If necessary, the text will be truncated to 255 characters.}
  13.  
  14.     procedure StrToTERec (str: Str255; hTE: TEHandle);
  15.       {StrToTERec converts the string str to the TextEdit record hTE. }
  16.  
  17. implementation
  18.  
  19.     procedure TERecToStr (hTE: TEHandle; var str: Str255);
  20.  
  21.     begin
  22.         GetIText(hTE^^.hText, str);
  23.     end;
  24.  
  25.     procedure StrToTERec (str: Str255; hTE: TEHandle);
  26.  
  27.     begin
  28.         TESetText(POINTER(ORD4(@str) + 1), ORD4(length(str)), hTE);
  29.     end;
  30.  
  31. end.